home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-11-12 | 996 b | 62 lines | [TEXT/????] |
- screen_rows:=410;
- screen_cols:=600;
-
- def openit = openwindow currentwindow
- from origin to (screen_rows,screen_cols) at (-50,250)
- enddef;
-
- message" creating MacII screen viewing modes,";
-
- mode_def lowest =
- proofing:=0;
- fontmaking:=1;
- tracingtitles:=0;
- pixels_per_inch:=101;
- blacker:=0;
- fillin:=0;
- o_correction:=1;
- enddef;
-
- mode_def graphics =
- proofing:=0;
- fontmaking:=0;
- tracingtitles:=1;
- pixels_per_inch:=1000;
- fillin:=0;
- o_correction:=1;
- enddef;
-
- mode_def maconeproof =
- proofing:=2;
- fontmaking:=0;
- tracingtitles:=1;
- pixels_per_inch:=2602;
- blacker:=0;
- fillin:=0;
- o_correction:=1;
- enddef;
-
- mode_def macomniproof =
- maconeproof_;
- pixels_per_inch:=1301;
- enddef;
-
- mode_def macsmoke =
- maconeproof_;
- proofing:=1;
- extra_setup:=extra_setup&"grayfont black";
- let makebox=maketicks;
- enddef;
-
- mode_def screen =
- proofing:=0;
- fontmaking:=1;
- tracingtitles:=0;
- pixels_per_inch:=100;
- blacker:=0;
- fillin:=0;
- o_correction:=.2;
- enddef;
-
- base_version:=base_version&"/Macintosh II";
-